home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Packages / printerChoices.tcl < prev    next >
Encoding:
Text File  |  1997-12-10  |  2.1 KB  |  82 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*- (install)
  2.  # ###################################################################
  3.  #  Alpha - new Tcl folder configuration
  4.  # 
  5.  #  FILE: "printerChoices.tcl"
  6.  #                                    created: 13/9/97 {2:30:36 pm} 
  7.  #                                last update: 27/9/97 {12:26:45 pm} 
  8.  #  
  9.  # Reorganisation carried out by Vince Darley with much help from Tom 
  10.  # Fetherston, Johan Linde and suggestions from the Alpha-D mailing list.  
  11.  # Alpha is shareware; please register with the author using the register 
  12.  # button in the about box.
  13.  #  
  14.  # Description:
  15.  # 
  16.  # This package converts the basic 'Print…' menu item into a sub-menu
  17.  # from which the user can select a variety of printing methods.
  18.  # This used to be part of standard Alpha, but it seemed a good
  19.  # candidate to split off into a package.
  20.  # ###################################################################
  21.  ##
  22.  
  23. alpha::extension printerChoicesMenu 0.2 {
  24.     menu::buildProc print setupPrintMenu
  25.     menu::replaceWith File "/P<Sprint…" submenu print
  26. }
  27.  
  28. newPref var defaultPrinter "Alpha" global setupPrintMenu \
  29.   {Alpha Kodex Enscriptor {Drop•PS} PrettyC}
  30. lunion varPrefs(Printer) defaultPrinter
  31.  
  32. proc setupPrintMenu {args} {
  33.     global defaultPrinter 
  34.     set m [list {/P<SPrint…} {/P<S<I<OPrint All…} {(-} \
  35.       Alpha Kodex Enscriptor {Drop•PS} PrettyC]
  36.     menu -m -n print -p menu::print $m
  37.     
  38.     foreach item $m {
  39.         if {$item == $defaultPrinter} {
  40.             markMenuItem -m print $item on
  41.         } else {
  42.             markMenuItem -m print $item off
  43.         }
  44.     }
  45. }
  46.  
  47. proc menu::print {menu item} {
  48.     global modifiedVars defaultPrinter
  49.     switch -glob $item {
  50.         "Print All"    {    
  51.             if {$defaultPrinter == "Alpha"} {
  52.                 printAll
  53.             } else {
  54.                 foreach f [winNames -f] {
  55.                     printFile $f
  56.                 }
  57.             }
  58.         }
  59.         "Print"    {
  60.             printFile [win::Current]
  61.         }
  62.         default {
  63.             set defaultPrinter $item
  64.             lappend modifiedVars defaultPrinter
  65.             setupPrintMenu
  66.         }
  67.     }
  68. }
  69.  
  70. proc printFile {fname} {
  71.     global defaultPrinter
  72.     
  73.     switch -glob $defaultPrinter {
  74.         "Alpha"            {print}
  75.         "Kodex*"        {openAndSendFile KoDX}
  76.         "Enscr*"        {openAndSendFile Ens3}
  77.         "Drop*"            {openAndSendFile {D•PS}}
  78.         "Pret*"            {openAndSendFile niCe}
  79.     }
  80. }
  81.  
  82.